home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / pluma109.zip / ESPANOL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-05-27  |  2KB  |  112 lines

  1. /* ENGLISH.CMD: Instalación de PLUMA en español. */
  2.  
  3. '@Echo Off'
  4.  
  5. /* Título del objeto a instalar . */
  6.  
  7. Title = 'Pluma 1.09'
  8.  
  9.  
  10. /* Cargar REXXUTIL */
  11.  
  12. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  13. Call SysLoadFuncs
  14.  
  15.  
  16. /* Inicialización */
  17.  
  18. Signal On Failure Name FAILURE
  19. Signal On Halt Name HALT
  20. Signal On Syntax Name SYNTAX
  21.  
  22. Call SysCls
  23. Say 'Instalando PLUMA...'
  24. Say ''
  25.  
  26.  
  27. /* Verificar la existencia de los ficheros. */
  28.  
  29. Language = 'ESPANOL'
  30.  
  31. Result = SysFileTree( 'PLUMA.EXE', 'Files', 'F' )
  32. If Files.0 = 0 Then
  33.   Do
  34.   Say 'ERROR: ¡No se encuentra PLUMA.EXE!'
  35.   Signal DONE
  36.   End
  37.  
  38. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  39. If Files.0 = 0 Then
  40.   Do
  41.   Say 'ERROR: ¡No se encuentra 'Language'.DLL!'
  42.   Signal DONE
  43.   End
  44.  
  45. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  46. If Files.0 = 0 Then
  47.   Do
  48.   Say 'ERROR: ¡No se encuentra 'Language'.HLP!'
  49.   Signal DONE
  50.   End
  51.  
  52. /* Preguntar el directorio destino. */
  53.  
  54. Say 'Introduzca, por favor, el nombre completo del directorio en donde'
  55. Say '  desea instalar PLUMA (por defecto es C:\OS2\APPS): '
  56. Pull Directory
  57. If Directory = "" Then Directory = 'C:\OS2\APPS'
  58.  
  59.  
  60. /* Crear el directorio si es necesario. */
  61.  
  62. Result = SysFileTree( Directory, 'Dirs', 'D' )
  63. If Dirs.0 = 0 Then
  64.   Do
  65.   Result = SysMkDir( Directory )
  66.   if Result == 0 Then
  67.     Do
  68.     End
  69.   Else
  70.     Do
  71.     Say 'ERROR: ¡Imposible de crear el directorio destino!'
  72.     Signal DONE
  73.     End
  74.   End
  75. Say ''
  76.  
  77.  
  78. /* Completar la instalación. */
  79.  
  80. Say 'Copinando PLUMA a ' Directory '...'
  81. Copy PLUMA.EXE Directory                   '1>NUL'
  82. Copy Language".DLL" Directory"\PLUMA.DLL"  '1>NUL'
  83. Copy Language".HLP" Directory"\PLUMA.HLP"  '1>NUL'
  84.  
  85. Say 'Creando el objeto del programa...'
  86. Type = 'WPProgram'
  87. Folder = '<WP_DESKTOP>'
  88. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\PLUMA.EXE;STARTUPDIR="Directory";OBJECTID=<PLUMA>;NOPRINT=YES;ASSOCTYPE=Pluma;"
  89. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  90.  
  91. If Result = 1 Then
  92.   Say '¡Objeto creado!'
  93. Else             
  94.   Say 'ERROR: ¡No se ha podido crear el objeto!'
  95.  
  96. Signal DONE
  97.  
  98. FAILURE:
  99. Say 'Error en REXX.'
  100. Signal DONE
  101.  
  102. HALT:
  103. Say 'REXX interrumpido.'
  104. Signal DONE
  105.  
  106. SYNTAX:
  107. Say 'Error de síntaxis REXX.'
  108. Signal DONE
  109.  
  110. DONE:
  111. Exit
  112.